setwd('/Users/emmatimminsschiffman/Documents/Dissertation/Larvae/FHL 2011')
dhinge<-read.csv('dhinge.glm.csv', header=T)
head(dhinge)